home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s1.arc / DOXMODD2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-16  |  1.1 KB  |  40 lines
  1.  
  2. BEGIN (* Do_Xmodem_Download *)
  3.                                    (* Reset comm parms to 8,n,1 *)
  4.  
  5.    Xmodem_Bits_Save   := Data_Bits;
  6.    Xmodem_Parity_Save := Parity;
  7.    Xmodem_Stop_Save   := Stop_Bits;
  8.  
  9.    IF ( Data_Bits <>  8  ) OR
  10.       ( Parity    <> 'N' ) THEN
  11.          Async_Reset_Port( Comm_Port, Baud_Rate, 'N', 8, 1 );
  12.  
  13.                                    (* Perform transfer          *)
  14.    CASE Transfer_Protocol Of
  15.  
  16.       Xmodem_Chk:     Receive_Xmodem_File( FALSE );
  17.  
  18.       Modem7_CRC,
  19.       Telink:         Receive_Modem7_File( TRUE );
  20.  
  21.       Modem7_Chk:     Receive_Modem7_File( FALSE );
  22.  
  23.       Ymodem_Batch:   Receive_Ymodem_File;
  24.  
  25.       Ymodem:         Receive_Xmodem_File( TRUE );
  26.  
  27.       Xmodem_Crc:     Receive_Xmodem_File( TRUE  );
  28.  
  29.       ELSE ;
  30.  
  31.    END  (* CASE *);
  32.                                    (* Reset comm parms back *)
  33.  
  34.    IF ( Xmodem_Bits_Save   <>  8  ) OR
  35.       ( Xmodem_Parity_Save <> 'N' ) THEN
  36.          Async_Reset_Port( Comm_Port, Baud_Rate, Xmodem_Parity_Save,
  37.                            Xmodem_Bits_Save, Xmodem_Stop_Save );
  38.  
  39. END   (* Do_Xmodem_DownLoad *);
  40.